Option Explicit
Sub D_Sample006()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1:A4")				'ƻsӷxsd
    Set myRng2 = Range("B1")       			'ƻsؼxs
    With myRng1
        Set myRng2 = myRng2.Resize( _
            RowSize:=.Rows.Count, _
            ColumnSize:=.Columns.Count)
    End With
    'ǳƨ즹
    myRng2.Value = myRng1.Value
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub

